home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / games1 / break.frm (.txt) < prev    next >
Visual Basic Form  |  1997-02-23  |  32KB  |  853 lines
  1. VERSION 4.00
  2. Begin VB.Form frmBreakThru 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00C0C0C0&
  5.    BorderStyle     =   0  'None
  6.    Caption         =   "BREAK-THRU!"
  7.    ClientHeight    =   5265
  8.    ClientLeft      =   2670
  9.    ClientTop       =   2025
  10.    ClientWidth     =   3810
  11.    BeginProperty Font 
  12.       name            =   "MS Sans Serif"
  13.       charset         =   0
  14.       weight          =   700
  15.       size            =   8.25
  16.       underline       =   0   'False
  17.       italic          =   0   'False
  18.       strikethrough   =   0   'False
  19.    EndProperty
  20.    ForeColor       =   &H00000000&
  21.    Height          =   5955
  22.    Icon            =   "BREAK.frx":0000
  23.    KeyPreview      =   -1  'True
  24.    Left            =   2610
  25.    LinkTopic       =   "Form1"
  26.    MaxButton       =   0   'False
  27.    MinButton       =   0   'False
  28.    ScaleHeight     =   5265
  29.    ScaleWidth      =   3810
  30.    ShowInTaskbar   =   0   'False
  31.    Top             =   1395
  32.    Width           =   3930
  33.    Begin VB.Timer JoyTimer 
  34.       Interval        =   22
  35.       Left            =   3060
  36.       Top             =   5280
  37.    End
  38.    Begin VB.PictureBox picPaddle 
  39.       Appearance      =   0  'Flat
  40.       AutoRedraw      =   -1  'True
  41.       AutoSize        =   -1  'True
  42.       BackColor       =   &H80000005&
  43.       BorderStyle     =   0  'None
  44.       ForeColor       =   &H80000008&
  45.       Height          =   180
  46.       Left            =   1320
  47.       Picture         =   "BREAK.frx":030A
  48.       ScaleHeight     =   12
  49.       ScaleMode       =   3  'Pixel
  50.       ScaleWidth      =   30
  51.       TabIndex        =   6
  52.       Top             =   5460
  53.       Visible         =   0   'False
  54.       Width           =   450
  55.    End
  56.    Begin VB.PictureBox picBlack 
  57.       Appearance      =   0  'Flat
  58.       AutoRedraw      =   -1  'True
  59.       BackColor       =   &H00000000&
  60.       FillStyle       =   0  'Solid
  61.       ForeColor       =   &H80000008&
  62.       Height          =   495
  63.       Left            =   270
  64.       ScaleHeight     =   465
  65.       ScaleWidth      =   675
  66.       TabIndex        =   8
  67.       Top             =   5190
  68.       Visible         =   0   'False
  69.       Width           =   705
  70.    End
  71.    Begin VB.PictureBox picBall 
  72.       Appearance      =   0  'Flat
  73.       AutoRedraw      =   -1  'True
  74.       AutoSize        =   -1  'True
  75.       BackColor       =   &H80000005&
  76.       BorderStyle     =   0  'None
  77.       ForeColor       =   &H80000008&
  78.       Height          =   120
  79.       Left            =   1110
  80.       Picture         =   "BREAK.frx":044C
  81.       ScaleHeight     =   8
  82.       ScaleMode       =   3  'Pixel
  83.       ScaleWidth      =   8
  84.       TabIndex        =   7
  85.       Top             =   5520
  86.       Visible         =   0   'False
  87.       Width           =   120
  88.    End
  89.    Begin VB.PictureBox picField 
  90.       Appearance      =   0  'Flat
  91.       BackColor       =   &H00000000&
  92.       ClipControls    =   0   'False
  93.       ForeColor       =   &H80000008&
  94.       Height          =   3975
  95.       Left            =   135
  96.       ScaleHeight     =   263
  97.       ScaleMode       =   3  'Pixel
  98.       ScaleWidth      =   234
  99.       TabIndex        =   0
  100.       Tag             =   "/3d/"
  101.       Top             =   1140
  102.       Width           =   3540
  103.       Begin VB.Label lblGameOver 
  104.          Alignment       =   2  'Center
  105.          Appearance      =   0  'Flat
  106.          BackColor       =   &H80000005&
  107.          BackStyle       =   0  'Transparent
  108.          Caption         =   "GAME OVER"
  109.          BeginProperty Font 
  110.             name            =   "MS Sans Serif"
  111.             charset         =   0
  112.             weight          =   400
  113.             size            =   12
  114.             underline       =   0   'False
  115.             italic          =   0   'False
  116.             strikethrough   =   0   'False
  117.          EndProperty
  118.          ForeColor       =   &H000000FF&
  119.          Height          =   315
  120.          Left            =   -30
  121.          TabIndex        =   2
  122.          Top             =   1260
  123.          Visible         =   0   'False
  124.          Width           =   3525
  125.       End
  126.       Begin VB.Image imgBlock 
  127.          Appearance      =   0  'Flat
  128.          Height          =   210
  129.          Index           =   0
  130.          Left            =   1080
  131.          Picture         =   "BREAK.frx":04EE
  132.          Top             =   480
  133.          Visible         =   0   'False
  134.          Width           =   300
  135.       End
  136.       Begin VB.Label lblPaused 
  137.          Alignment       =   2  'Center
  138.          Appearance      =   0  'Flat
  139.          BackColor       =   &H80000005&
  140.          BackStyle       =   0  'Transparent
  141.          Caption         =   "PAUSED"
  142.          BeginProperty Font 
  143.             name            =   "MS Sans Serif"
  144.             charset         =   0
  145.             weight          =   400
  146.             size            =   12
  147.             underline       =   0   'False
  148.             italic          =   0   'False
  149.             strikethrough   =   0   'False
  150.          EndProperty
  151.          ForeColor       =   &H000000FF&
  152.          Height          =   315
  153.          Left            =   0
  154.          TabIndex        =   12
  155.          Top             =   1740
  156.          Visible         =   0   'False
  157.          Width           =   3525
  158.       End
  159.    End
  160.    Begin VB.Timer Timer1 
  161.       Enabled         =   0   'False
  162.       Interval        =   5
  163.       Left            =   2520
  164.       Top             =   5280
  165.    End
  166.    Begin VB.Label lblHiScore 
  167.       Alignment       =   2  'Center
  168.       Appearance      =   0  'Flat
  169.       BackColor       =   &H80000005&
  170.       BackStyle       =   0  'Transparent
  171.       Caption         =   "0000"
  172.       BeginProperty Font 
  173.          name            =   "MS Sans Serif"
  174.          charset         =   0
  175.          weight          =   700
  176.          size            =   9.75
  177.          underline       =   0   'False
  178.          italic          =   0   'False
  179.          strikethrough   =   0   'False
  180.       EndProperty
  181.       ForeColor       =   &H000000FF&
  182.       Height          =   255
  183.       Left            =   1620
  184.       TabIndex        =   11
  185.       Tag             =   "/3d/"
  186.       Top             =   540
  187.       Width           =   1875
  188.    End
  189.    Begin VB.Label Label4 
  190.       Alignment       =   1  'Right Justify
  191.       Appearance      =   0  'Flat
  192.       BackColor       =   &H80000005&
  193.       BackStyle       =   0  'Transparent
  194.       Caption         =   "High Score:"
  195.       BeginProperty Font 
  196.          name            =   "MS Sans Serif"
  197.          charset         =   0
  198.          weight          =   700
  199.          size            =   9.75
  200.          underline       =   0   'False
  201.          italic          =   0   'False
  202.          strikethrough   =   0   'False
  203.       EndProperty
  204.       ForeColor       =   &H00FF0000&
  205.       Height          =   255
  206.       Left            =   240
  207.       TabIndex        =   10
  208.       Top             =   540
  209.       Width           =   1275
  210.    End
  211.    Begin VB.Label lblPoints 
  212.       Alignment       =   1  'Right Justify
  213.       Appearance      =   0  'Flat
  214.       BackColor       =   &H80000005&
  215.       BackStyle       =   0  'Transparent
  216.       Caption         =   "0000"
  217.       BeginProperty Font 
  218.          name            =   "MS Sans Serif"
  219.          charset         =   0
  220.          weight          =   700
  221.          size            =   12
  222.          underline       =   0   'False
  223.          italic          =   0   'False
  224.          strikethrough   =   0   'False
  225.       EndProperty
  226.       ForeColor       =   &H000000FF&
  227.       Height          =   315
  228.       Left            =   1140
  229.       TabIndex        =   3
  230.       Top             =   150
  231.       Width           =   675
  232.    End
  233.    Begin VB.Label Label2 
  234.       Alignment       =   1  'Right Justify
  235.       Appearance      =   0  'Flat
  236.       BackColor       =   &H80000005&
  237.       BackStyle       =   0  'Transparent
  238.       Caption         =   "Points:"
  239.       BeginProperty Font 
  240.          name            =   "MS Sans Serif"
  241.          charset         =   0
  242.          weight          =   700
  243.          size            =   12
  244.          underline       =   0   'False
  245.          italic          =   0   'False
  246.          strikethrough   =   0   'False
  247.       EndProperty
  248.       ForeColor       =   &H00FF0000&
  249.       Height          =   315
  250.       Left            =   240
  251.       TabIndex        =   5
  252.